COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 CONVERT: PROCEDURE OPTIONS (MAIN)
C00005 ENDMK
C⊗;
 CONVERT: PROCEDURE OPTIONS (MAIN);
   
   /*A PROGRAM TO FORMAT PSEUDO-MARC RECORDS*/
   
    DECLARE
       DIR(9) FIXED (3,0),/*DIRECTORY ARRAY*/
       I FIXED (2,0),
       BIB CHAR (134) VARYING,/*BIBLIOGRAPHICAL MATERIAL*/
       BIB←PART(9) CHAR (50) VARYING,/*BIB SEGMENTS*/
       OKOK BIT (1);/*END FLAG*/
   
   /*INITIALIZE VARIABLES*/
   
    I = 0;
    DIR = 0;
    BIB←PART = 0;
    OKOK = '1'B;
    DIR(10) = 161;
   
    ON ENDFILE (SYSIN) OKOK = '0'B;
   
       GET SKIP EDIT ((DIR(I) DO I = 1 TO 9), BIB) (9 F(3,0), A(133));
 MRCTIME:
    DO WHILE (OKOK);
   
    USEDIR:
       DO I = 1 TO 9;/*BREAK BIB INTO SEGMENTS USING DIR NUMBERS*/
          BIB←PART(I) = SUBSTR (BIB, DIR(I), DIR(I+1) - 1);
       END USEDIR;
   
    PUT SKIP LIST /*PRINT BIB←PART(1-4) ON ONE LINE (W) PUNCT.*/
       (BIB←PART(1)||', '||BIB←PART(2)||'.  '||BIB←PART(3)||
          '.  '||BIB←PART(4));
    PUT SKIP LIST /*PRINT BIB←PART(1-5) ON NEXT LINE (W) PUNCT.*/
       ('     '||BIB←PART(5)||'.  '||BIB←PART(6)||'.  '||
          BIB←PART(7)||'.  '||BIB←PART(8)||`.  '||BIB←PART(9));

    GET SKIP EDIT ((DIR(I) DO I = 1 TO 9), BIB) (9 F(3,0), A(133));

   END MRCTIME;
 END CONVERT;